(cua-help-for-rectangle): Add `alt' modifier.

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 43a66fd0e3e18123212e9e6b9ebc237d7259021c..7db3cca8faef081c918d462dd587755f611696bd 100644 (file)
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -1361,6 +1361,7 @@ With prefix arg, indent to that column."
   (interactive)
   (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-")
                 ((eq cua--rectangle-modifier-key 'super) " s-")
+                ((eq cua--rectangle-modifier-key 'alt) " A-")
                 (t " M-"))))
     (message
      (concat (if help "C-?:help" "")